home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18a.d64 / change adress (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  57 lines
  1. 10 N1$="MASTERTEXT T3":N2$="MASTERTEXT T4":N3$="FORMULAR       F"
  2. 15 N4$="TABULATOREN    B":U=8:D=0
  3. 60 PRINT "BITTE MASTER-TEXT 128 DISK IN LAUFWERK 8EINLEGEN UND TASTE DRUECKEN"
  4. 65 POKE198,0:WAIT 198,1
  5. 70 FOR IX=1TO4:
  6. 80 IF IX=1THEN N$=N1$:P=896
  7. 85 IF IX=2THEN N$=N2$:P=53248
  8. 90 IF IX=3THEN N$=N3$:P=1024
  9. 95 IF IX=4THEN N$=N4$:P=1792
  10. 110 V=16: Q=32: F=256: N$=LEFT$(N$,V)
  11. 120 H$="0123456789ABCDEF": Z$=CHR$(0)
  12. 130 T$=RIGHT$(STR$(D),1): OPEN 1,U,15,"I"+T$: GOSUB 620
  13. 140 T$=T$+":"+N$: OPEN 2,U,2,T$+",P,R"
  14. 150 INPUT#1,E,M$,J,K: IF E=0 THEN 240
  15. 160 CLOSE 1: CLOSE 2: PRINT " PROGRAMM ";N$;
  16. 170 IF E=62 THEN PRINT " NICHT GEFUNDEN ": GOTO 200
  17. 180 IF E=64 THEN PRINT " FALSCHER FILETYP": GOTO 200
  18. 190 PRINT " DISK READ-ERROR";E: END
  19. 200 FOR J=1 TO 2000: NEXT: GOTO 90
  20. 210 J=INT(C/V): K=C-J*V
  21. 220 M$=M$+MID$(H$,J+1,1)+MID$(H$,K+1,1)
  22. 230 RETURN
  23. 240 GET#2,A$,B$: IF ST THEN 190
  24. 250 CLOSE 2: CLOSE 1: M$=""
  25. 260 A=ASC(A$+Z$): B=ASC(B$+Z$)
  26. 270 C=B: GOSUB 210: C=A: GOSUB 210
  27. 280 PRINT"DIE STARTADRESSE VON ";N$;" IST: ";
  28. 290 PRINT"HEXADEZIMAL: ";M$;" DEZIMAL:  ";B*F+A
  29. 300 PRINT"UND WIRD GEAENDERT AUF DEZIMAL: ";P
  30. 340 B=INT(P/F): A=P-B*F: P$=CHR$(A)+CHR$(B): M$=""
  31. 350 C=B: GOSUB 210: C=A: GOSUB 210
  32. 360 PRINT " HEX:  ";M$;"    DECIMAL: ";B*F+A
  33. 390 J=LEN(N$): IF J=V THEN 410
  34. 400 FOR X=J+1 TO V:N$=N$+CHR$(160):NEXT
  35. 410 OPEN 1,U,15: OPEN 2,U,2,"#"
  36. 420 GOSUB 620: T=18: S=1
  37. 430 PRINT#1,"U1:";2;D;T;S: GOSUB 620
  38. 440 PRINT#1,"B-P:";2;0: GET#2,A$,B$
  39. 450 T=ASC(A$+Z$): S=ASC(B$+Z$): H=2
  40. 460 PRINT#1,"B-P:";2;H: GET#2,T$
  41. 470 C=ASC(T$+Z$): IF C<>130 THEN 510
  42. 480 GET#2,A$,B$: F$="": FOR X=1 TO V
  43. 490 GET#2,T$: F$=F$+T$: NEXT
  44. 500 IF F$=N$ THEN 530
  45. 510 H=H+Q: IF H<F THEN 460
  46. 520 GOTO 430
  47. 530 A=ASC(A$+Z$): B=ASC(B$+Z$)
  48. 540 PRINT#1,"U1:";2;D;A;B: GOSUB 620
  49. 550 PRINT#1,"B-P:";2;2: PRINT#2,P$;
  50. 560 PRINT#1,"U2:";2;D;A;B: GOSUB 620
  51. 570 CLOSE 2: GOSUB 620: CLOSE 1
  52. 600 NEXT IX
  53. 610 PRINT"FERTIG! MASTERTEXT KANN NUN GESTARTET   WERDEN":END
  54. 620 INPUT#1,E,M$,J,K:IF E=0 THEN RETURN
  55. 630 PRINT " ERROR: ";E;M$;J;K
  56. 640 CLOSE 2: CLOSE 1: END
  57.